﻿Imports System.Text
Imports System.IO

Public Class frmLogErro
    Inherits formPadrao



    Private Sub frmLogErro_Load(sender As Object, e As EventArgs) Handles Me.Load
        Try

            Dim diretorio As String = Configuration.ConfigurationManager.AppSettings("diretorioLog")
            Dim arquivo As String = System.Windows.Forms.Application.StartupPath & diretorio
            Dim fluxo As IO.StreamReader


            If IO.File.Exists(arquivo) Then
                fluxo = New StreamReader(arquivo)
                txterro.Text = fluxo.ReadToEnd
            Else

                MsgBox("Arquivo de log não encontrado no sistema.", MsgBoxStyle.Exclamation)
            End If

        Catch ex As Exception
            generica.gravaErro(ex)
        End Try

    End Sub

End Class